── Attaching core tidyverse packages ──────────────────────── tidyverse 2.0.0 ──
✔ dplyr 1.1.4 ✔ readr 2.1.5
✔ forcats 1.0.0 ✔ stringr 1.5.1
✔ ggplot2 3.5.2 ✔ tibble 3.2.1
✔ lubridate 1.9.4 ✔ tidyr 1.3.1
✔ purrr 1.0.4
── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
✖ dplyr::filter() masks stats::filter()
✖ dplyr::group_rows() masks kableExtra::group_rows()
✖ dplyr::lag() masks stats::lag()
ℹ Use the conflicted package (<http://conflicted.r-lib.org/>) to force all conflicts to become errors
## https://haozhu233.github.io/kableExtra/awesome_table_in_html.html
table_data <- data.frame(
LP = c("*Burnout/exhaustion* (inability to continue participation)",
"*Lost commitment* (unwillingness to continue participation)",
"",
""),
OF = c("*Membership loss* (failure to recruit/retain members)",
"*Factionalisation* (internal splitting of organisations or coalitions)",
"*Rigidity* (failure to adapt according to new circumstances)",
""),
SC1 = c("(1) *Identity of",
"State agents (actors representing state institutions)",
"(2) *Character of",
"Coercion (direct repression; the threat or use of force)"),
SC2 = c("repressive agent*",
"Private agents (actors not representing state institutions)",
"repressive action*",
"Channelling (indirect repression, such as resource deprivation, problem depletion)")
)
table_data <- data.frame(
LP = c("Burnout/exhaustion",
"(inability to continue participation)",
"Lost commitment",
"(unwillingness to continue participation)",
"",
""),
OF = c("Membership loss",
"(failure to recruit/retain members)",
"Factionalisation",
"(internal splitting of organisations or coalitions)",
"Rigidity",
"(failure to adapt according to new circumstances)"),
SC1 = c("(1) Identity of",
"State agents (actors representing state institutions)",
"(2) Character of",
"Coercion (direct repression; the threat or use of force)",
"",
""),
SC2 = c("repressive agent",
"Private agents (actors not representing state institutions)",
"repressive action",
"Channelling (indirect repression, such as resource deprivation, problem depletion)",
"",
"")
)
kable(table_data, col.names = c("Lost Participation (individual level)", "Organisational Failure (group level)", "Social control", "(two dimensions)"),
align = c("l", "l", "r", "l")) %>%
add_header_above(header = c("Internal" = 2, "External" = 2)) %>%
kable_minimal() %>%
kable_styling(bootstrap_options = "striped", font_size = 24) %>%
# kable_classic_2(full_width = F) %>%
# column_spec(1:ncol(table_data), hline_after=F) %>%
column_spec(1, border_right=T) %>%
column_spec(2, border_right=T) %>%
row_spec(0, bold = T, background = "grey80", hline_after = F) %>%
row_spec(1, italic = T, color="darkred") %>%
row_spec(3, italic = T, color="darkred") %>%
row_spec(5, italic = T, color="darkred")| Lost Participation (individual level) | Organisational Failure (group level) | Social control | (two dimensions) |
|---|---|---|---|
| Burnout/exhaustion | Membership loss | (1) Identity of | repressive agent |
| (inability to continue participation) | (failure to recruit/retain members) | State agents (actors representing state institutions) | Private agents (actors not representing state institutions) |
| Lost commitment | Factionalisation | (2) Character of | repressive action |
| (unwillingness to continue participation) | (internal splitting of organisations or coalitions) | Coercion (direct repression; the threat or use of force) | Channelling (indirect repression, such as resource deprivation, problem depletion) |
| Rigidity | |||
| (failure to adapt according to new circumstances) |
Social movement campaigns